From fccffcf4b38a9167a0fde1fcfd5ac68ec413c78b Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Fri, 20 Feb 2009 16:30:53 +0000 Subject: [PATCH] (python-shift-left, python-shift-right): When the mark is not active shift the current line. (Bug#2381) --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/python.el | 14 ++++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ba81c5abcc..23b3d840107 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-02-20 Martin Rudalics + + * progmodes/python.el (python-shift-left, python-shift-right): + When the mark is not active shift the current line. (Bug#2381) + Suggested by Guillaume Salagnac + 2009-02-20 Andreas Schwab * startup.el (command-line): Don't match an empty argument as an diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index cacd56b6639..7221d8ecb73 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -2008,9 +2008,10 @@ COUNT defaults to `python-indent'. If region isn't active, just shift current line. The region shifted includes the lines in which START and END lie. It is an error if any lines in the region are indented less than COUNT columns." - (interactive (if mark-active - (list (region-beginning) (region-end) current-prefix-arg) - (list (point) (point) current-prefix-arg))) + (interactive + (if mark-active + (list (region-beginning) (region-end) current-prefix-arg) + (list (line-beginning-position) (line-end-position) current-prefix-arg))) (if count (setq count (prefix-numeric-value count)) (setq count python-indent)) @@ -2031,9 +2032,10 @@ COUNT columns." COUNT defaults to `python-indent'. If region isn't active, just shift current line. The region shifted includes the lines in which START and END lie." - (interactive (if mark-active - (list (region-beginning) (region-end) current-prefix-arg) - (list (point) (point) current-prefix-arg))) + (interactive + (if mark-active + (list (region-beginning) (region-end) current-prefix-arg) + (list (line-beginning-position) (line-end-position) current-prefix-arg))) (if count (setq count (prefix-numeric-value count)) (setq count python-indent)) -- 2.30.2